make the button to databaselink

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

You can make a ls script that make a email and in the body with the class (notesrichtextitem) make reference to his email database's.

Dim session As New NotesSession
Dim db As NotesDatabase
dim dbmail as notesdatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set dbmail = session.CurrentDatabase

' if you make this bottom in other database you can find in the names.nsf selecting by el session.username
' who is making the code so if yo look for this person there is a field mail file you obtains the database
' make a set database with this reference and continue with the appendoclink as database,when people open the email 'see th link to open the databse who send the email, make sure have access to the database too.
' to find any in the names will make somthing like this I have the route to names in a profield
'
Set docConfig=db.GetProfileDocument("FProfile")

Set dbNames=session.GetDatabase(db.Server,docConfig.DBNames(0))
nombre=session.username

If Not(Isempty(nombre)) Then
Set vNames= dbNames.GetView ("People" )
Set docNames = vNames.GetDocumentByKey (nombre(0) )
'once you are in the doc you can obtain all
maildatabse=docNames.mailserver(0)
Set dbmail=session.GetDatabase(db.Server,maildatabse)
End If
'****************************************************
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( dbmail, db.Title )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )

Feedback response number WEBB82GCRL created by ~Mario Zekjipyskijip on 02/08/2010

Return to top

LotusScript Button Help (~Yoshi Ekluskia... 7.Feb.10)

. . make the button to databaselink (~Mario Zekjipys... 8.Feb.10)

Printer-friendly

Search this forum

Member Tools

RSS Feeds

RSS feeds

	All forum posts RSS
	All main topics RSS